home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STOCKS.SBD < prev    next >
Text File  |  1990-06-01  |  3KB  |  52 lines
  1. Symbol         ;TXT         IXD ;10                    ;0  ;7  ;
  2. Exchange       ;TXT             ;16                    ;0  ;42 ;
  3. Stock_Key      ;VTX CLC RDO IXD ;27                    ;1  ;4  ;>
  4. Exchange.STOCKS + " " + Symbol.STOCKS
  5. Company Name   ;TXT             ;36                    ;2  ;1  ;
  6. Sector         ;TXT         IXD ;30                    ;3  ;7  ;
  7. Description    ;TXT             ;40                    ;4  ;2  ;
  8. Stock_Type     ;TXT             ;16                    ;8  ;3  ;
  9. Performance    ;TXT             ;40                    ;5  ;2  ;
  10. Market         ;TXT             ;20                    ;1  ;44 ;
  11. Currency       ;TXT VAL     IXD ;3                     ;8  ;42 ;>
  12. LOOKUP (Currency.STOCKS,Currency.CURRENCY) ELSE REQUEST "Currency not found - Select another currency","",20,,Currency.STOCKS,40,Currency.CURRENCY,Description.CURRENCY
  13. Nominal Stock  ;NUM             ;,9999999999.          ;9  ;0  ;
  14. Current_Stock  ;NUM VAL         ;,9999999999.          ;9  ;37 ;>
  15. Current_Stock.STOCKS <= Nominal Stock.STOCKS
  16. Price Date     ;DAT CON         ;mmm dd,yy             ;10 ;3  ;>
  17. TODAY 
  18. Price Time     ;TIM CON         ;hh:mm am              ;10 ;40 ;>
  19. NOW 
  20. Price Asked    ;NUM             ;9999.0000             ;11 ;2  ;
  21. Price Bid      ;NUM             ;9999.0000             ;11 ;41 ;
  22. Price Middle   ;NUM CLC RDO     ;9999.0000             ;12 ;1  ;>
  23. (Price Asked.STOCKS + Price Bid.STOCKS) / 2
  24. Cap Million    ;NUM CLC RDO     ;,99999.999            ;22 ;39 ;>
  25. LOOKUP (Currency.STOCKS,Currency.CURRENCY) ? Current_Stock.STOCKS * Price Middle.STOCKS / (1000000 * Factor.CURRENCY):Cap Million.STOCKS
  26. Year_High      ;NUM             ;9999.0000             ;13 ;4  ;
  27. Date of High   ;DAT             ;mmm dd,yy             ;13 ;38 ;
  28. Year_Low       ;NUM             ;9999.0000             ;14 ;5  ;
  29. Date of Low    ;DAT             ;mmm dd,yy             ;14 ;39 ;
  30. FYE_month      ;NUM VAL         ;00.                   ;21 ;0  ;>
  31. FYE_month.STOCKS > 0 AND FYE_month.STOCKS < 13
  32. Last_Net Profit;NUM             ;-,9999999999.         ;21 ;35 ;
  33. PE ratio       ;NUM CLC RDO     ;-999.                 ;22 ;1  ;>
  34. (Cap Million.STOCKS * 1000000) / Last_Net Profit.STOCKS
  35. Address_1      ;TXT             ;30                    ;16 ;0  ;
  36. Address_2      ;TXT             ;30                    ;17 ;0  ;
  37. City           ;TXT             ;30                    ;18 ;5  ;
  38. State          ;TXT             ;30                    ;19 ;4  ;
  39. Zip Code       ;TXT             ;10                    ;19 ;42 ;
  40. Country        ;TXT         IXD ;24                    ;20 ;2  ;
  41. Telephone      ;TXT             ;20                    ;20 ;41 ;
  42. Comments       ;TXT             ;40                    ;6  ;5  ;
  43. FYE Stock      ;NUM             ;,9999999999.          ;23 ;0  ;
  44. Last_Earnings  ;VNU CLC RDO     ;-999.9999             ;23 ;37 ;>
  45. LOOKUP (Currency.STOCKS,Currency.CURRENCY) ? (Last_Net Profit.STOCKS * Factor.CURRENCY) / FYE Stock.STOCKS:Last_Earnings.STOCKS
  46.  
  47. Symbol
  48. Exchange
  49. Stock_Type
  50. Cap Million
  51. Currency_2
  52.